home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / comm / misc / DragonTools.lha / DragonTools-Install / Install-DragonTools < prev    next >
Encoding:
Text File  |  1999-07-03  |  6.3 KB  |  217 lines
  1.  
  2. ; ******************************************
  3. ; *                                        *
  4. ; *   DragonTools-Installationsskript      *
  5. ; *                                        *
  6. ; *  $VER: 1.3 (03.07.99) by J.Reinert     *
  7. ; *                                        *
  8. ; ******************************************
  9.  
  10.  
  11.  
  12. ; *************************************************************************
  13. ; Definition der globalen Konstanten
  14. ; *************************************************************************
  15.  
  16. (set #liesmichtext  "Lies_mich.TXT")        ; Schlusswort
  17. (set #progssource   "DragonTools/")         ; Programm
  18.  
  19. ; *************************************************************************
  20. ; Version der Workbench bestimmen
  21. ; *************************************************************************
  22.  
  23. (set #os_version (/ (getversion "libs:version.library") 65536))
  24.  
  25. ; *************************************************************************
  26. ; Definition der deutschen Texte
  27. ; *************************************************************************
  28.  
  29. (set #msg2
  30.   (cat "\nMit \"DragonTools\" haben auch Amiga-Anwender die "
  31.        "Möglichkeit, die ISDN-Anlagen \"Speed Dragon\" und \"Power Dragon\" von Hagenuk "
  32.        "zu konfigurieren und Rufumleitungen bequem zu programmieren "
  33.   )
  34. )
  35.  
  36. (set #bad-kick
  37.   (cat ""@app-name" benötigt Amiga-OS 3.0 oder höher!\n"
  38.        "Dies wäre jetzt der richtige Zeitpunkt, Ihren "
  39.        "Amiga aufzuwerten. "
  40.   )
  41. )
  42.  
  43. (set #askdirmsg
  44.   (cat "Bitte wählen Sie ein Ziel für "@app-name". Eine Schublade "
  45.        "mit Namen \"DragonTools\" wird erzeugt"
  46.   )
  47. )
  48.  
  49. (set #askdirhelp
  50.   (cat "Wählen Sie möglichst ein Ziel aus, welches nicht permanent "
  51.        "schreibgeschützt ist!"
  52.   )
  53. )
  54.  
  55. (set #libshelp
  56.   (cat "Die 'wizard.library' wird zum erzeugen und verwalten der "
  57.        "grafischen Benutzerschnittstelle benötigt! \n\ndie 'xprxmodem.library' "
  58.        "wird nur benötigt, wenn Sie neue Firmware-Dateien in die DataBox "
  59.        "laden möchten"
  60.   )
  61. )
  62.  
  63. (set #prgprompt "Kopieren des Programmes und Zubehör")
  64.  
  65. (set #iconprompt "Kopieren der Piktogramme")
  66.  
  67. (set #prghelp
  68.   (cat "*Die Dateien \"DragonTools\", \"DragonTools.info\", \"DragonTools.wizard\" "
  69.        "und \"SelectSerial\" müssen Sie unbedingt auswählen.\n\n"
  70.        "*Ob Sie die \"Docs\" (Anleitungen) umkopieren, überlasse ich Ihnen :)"
  71.   )
  72. )
  73.  
  74. (set #hinweis
  75.   (cat "\nBeachten Sie bitte, das einige Funktionen von DragonTools nur "
  76.        "dann genutzt werden können, wenn die dafür notwendige Firmware "
  77.        "in der DataBox installiert ist. Wie Sie neue Versionen mit "
  78.        "Ihrem Amiga in die DataBox bekommen, können Sie in der Anleitung "
  79.        "nachlesen\n\n"
  80.        "Wenn Sie DragonTools bisher in einer älteren Version als 2.1 "
  81.        "genutzt hatten, müssen Sie die Programmeinstellungen neu definieren"
  82.   )
  83. )
  84.  
  85. ; *************************************************************************
  86. ; Beginn der Installation
  87. ; *************************************************************************
  88.  
  89. (complete 0)
  90. (if (< #os_version 39)
  91.   (
  92.     (abort #bad-kick)
  93.   )
  94. )
  95. (message #msg2)
  96. (welcome)
  97. (complete 1)
  98.  
  99. ; *************************************************************************
  100. ; Zielverzeichnis auswählen lassen
  101. ; *************************************************************************
  102.  
  103. (set name
  104.   (askdir
  105.     (prompt  #askdirmsg)
  106.     (help    #askdirhelp)
  107.     (default @default-dest)
  108.   )
  109. )
  110. (set #destname (tackon name "DragonTools"))
  111. (complete 5)
  112.  
  113. ; *************************************************************************
  114. ; Icon-Typ auswählen
  115. ; *************************************************************************
  116.  
  117. (set #icontyp
  118.   (askchoice (prompt "Wählen Sie einen Icon-Typ aus")
  119.              (help "")
  120.              (choices "Standard" "MagicWB")
  121.   )
  122. )
  123. (if (= #icontyp 0)
  124.   (
  125.     (set #iconsource #progssource)
  126.   )
  127.   (
  128.     (set #iconsource "MWBIcons")
  129.   )
  130. )
  131. (complete 10)
  132.  
  133. ; *************************************************************************
  134. ; Datenschubladen erzeugen
  135. ; *************************************************************************
  136.  
  137. (makedir #destname (infos))
  138. (complete 20)
  139.  
  140. ; *************************************************************************
  141. ; Kopieren der Librarys
  142. ; *************************************************************************
  143.  
  144. (copylib (prompt "Kopieren der 'wizard.library'")
  145.          (help #libshelp) 
  146.          (source "libs/wizard.library")
  147.          (dest "Libs:") 
  148.          (confirm "EXPERT")
  149. )
  150. (complete 30)
  151.  
  152. (copylib (prompt "Kopieren der 'xprxmodem.library'")
  153.          (help #libshelp) 
  154.          (source "libs/xprxmodem.library")
  155.          (dest "Libs:") 
  156.          (confirm "EXPERT")
  157. )
  158.  
  159. (complete 40)
  160.  
  161. ; *************************************************************************
  162. ; Kopieren des Programms
  163. ; *************************************************************************
  164.  
  165. (copyfiles (prompt #prgprompt) 
  166.            (help #prghelp) 
  167.            (source #progssource) 
  168.            (dest #destname) 
  169.            (pattern "~(#?.info)")
  170.            (confirm "EXPERT")
  171. )
  172. (complete 80)
  173.  
  174. ; *************************************************************************
  175. ; Kopieren der Icons
  176. ; *************************************************************************
  177.  
  178. (working "Icons kopieren...")
  179. (run (cat "IconCopy " (tackon #iconsource "DragonTools") " " (tackon #destname "DragonTools") " UPDATE"))
  180. (run (cat "IconCopy " (tackon #iconsource "Docs") " " (tackon #destname "Docs") " UPDATE"))
  181.  
  182. (complete 90)
  183.  
  184. ; *************************************************************************
  185. ; Abschluss-Hinweis
  186. ; *************************************************************************
  187.  
  188. (message #hinweis)
  189. (complete 100)
  190.  
  191. ; *************************************************************************
  192. ; Aktuelles Verzeichnis setzen
  193. ; *************************************************************************
  194.  
  195. (if (exists (tackon #destname "DragonTools"))
  196.   (
  197.     (set @default-dest #destname)
  198.   )
  199.   (
  200.     (set @default-dest "")
  201.   )
  202. )
  203.  
  204.  
  205. ; *************************************************************************
  206. ; Falls vorhanden, einen LiesMich-Text anzeigen
  207. ; *************************************************************************
  208.  
  209. (if (exists #liesmichtext)
  210.   (run (cat "sys:utilities/Multiview " #liesmichtext))
  211. )
  212.  
  213. ; *************************************************************************
  214. ; Ende der Installation
  215. ; *************************************************************************
  216.  
  217.